home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS26.ADF / SoundScape / AztecExamples / skeleton.c < prev    next >
C/C++ Source or Header  |  1989-01-26  |  3KB  |  140 lines
  1. /*    SKELETON.C    Skeleton module for Aztec C.
  2.  
  3.     (c) 1987    Todor Fay
  4. */
  5.  
  6. #include "exec/exec.h"
  7. #include "exec/types.h"
  8. #include "soundscape.h"
  9. #include "intuition/intuition.h"
  10.  
  11. /*    Images for input and output icons of the module.  */
  12.  
  13. extern struct Image *inimage, *outimage;
  14.  
  15. /*    Define your own state structure for edit routines. */
  16.  
  17. struct State {
  18.     long length;        /* Always has a length field first. */
  19.  
  20. /*    You supply remaining fields. */
  21.  
  22. };
  23.  
  24. /*    Declare a state structure. */
  25.  
  26. struct State state = { sizeof(state) - 4, };
  27.  
  28. /*    Pick an ID for your port, and a name. * /
  29.  
  30. #define PORT_ID        255
  31. #define PORT_NAME    "myportname"
  32.  
  33. /*    The id for this port, returned by AddMidiPort: */
  34.  
  35. short thisport;
  36.  
  37. /*    Base Pointers to SoundScape and Intuition */
  38.  
  39. long SoundScapeBase;
  40. long IntuitionBase;
  41.  
  42. outcode(note)
  43.  
  44. /*    This is your output routine.  It is called by the packet
  45.     router whenever it has a MIDI event for you.  Do something
  46.     with the event, then return.
  47.     Note the use of enteraztec() and leaveaztec().
  48. */
  49.  
  50. struct Note *note;
  51.  
  52. {
  53.     enteraztec();
  54.     FreeNode(note);
  55.     leaveaztec();
  56. }
  57.  
  58. opencode(direction)
  59.  
  60. /*    Depending on the direction, open the module for operation.
  61.     Return 1 if successful, 0 if not.  
  62. */
  63.  
  64. char direction;
  65.  
  66. {
  67.     enteraztec();
  68.     if (direction) {
  69.     /*  Code to init for sending events. */
  70.     }
  71.     else {
  72.     /*  Code to init for receiving events. */
  73.     }
  74.     leaveaztec();
  75.     return(1);
  76. }
  77.  
  78. closecode(direction)
  79.  
  80. { 
  81.     enteraztec();
  82.     if (direction) {
  83.     /*  Code to close down sending events. */
  84.     }
  85.     else {
  86.     /*  Code to take care of stopping receiving events. */
  87.     }
  88.     leaveaztec();
  89.     return(1);
  90. }
  91.  
  92. editcode(direction,command,buffer);
  93.  
  94. char direction;
  95. char command;
  96. struct State *buffer;
  97.  
  98. {
  99.     enteraztec();
  100.     switch (command) {
  101.     case USEREDIT :
  102.         if (direction) {
  103.     /*    Your edit routine for left icon here. */
  104.         }
  105.         else {
  106.     /*    Your edit routine for right icon here. */
  107.         }
  108.         break;
  109.     case SAVESTATE :
  110.     /*     Your routine to save to a file here. */
  111.     case GETSTATE :
  112.         movmem(&state,buffer,sizeof(state));
  113.         break;
  114.     case LOADSTATE :
  115.         movmem(buffer,&state,sizeof(state));
  116.         state.length = (sizeof(state) - 4);
  117.     /*    Your routine to load a file here. */
  118.         break;
  119.     case SETSTATE :
  120.         movmem(buffer,&state,sizeof(state));
  121.         state.length = (sizeof(state) - 4);
  122.         break;
  123.     }
  124.     leaveaztec();
  125. }
  126.  
  127.  
  128. main() {
  129.     IntuitionBase = OpenLibrary("intuition.library",0);
  130.     SoundScapeBase = OpenLibrary("soundscape.library",0);
  131.     if (SoundScapeBase) {
  132.     CloseLibrary(SoundScapeBase);
  133.     thisport = AddMidiPort(opencode,closecode,editcode,outcode,
  134.         &inimage,&outimage,PORT_ID,PORT_NAME);
  135.     SetTaskPri(FindTask(0),-20);
  136.     while (MidiPort(thisport)) Delay(100);
  137.     }
  138.     CloseLibrary(IntuitionBase);
  139. }
  140.